MsgBox ("Beta Testers -- please note that the message(s) you've 'sent' should now exist in the subdirectory that you chose with the general setup option.")
timer1.Enabled = 1 'Begin timer to go back to opening/main form
k = MsgBox("After listening to your voicegram, do you wish to KILL it? Choosing 'yes' will delete it; choosing 'no' will save it.", 4, "Delete Voicegram?")
label1.Caption = "Begin with the complete name/address of the person you're sending this voicegram to."
End Select
End Sub
Sub makeblue ()
Y& = RGB(0, 0, 255)
text1.BackColor = Y&
text2.BackColor = Y&
text3.BackColor = Y&
text4.BackColor = Y&
text5.BackColor = Y&
text6.BackColor = Y&
text7.BackColor = Y&
text8.BackColor = Y&
text9.BackColor = Y&
text10.BackColor = Y&
text11.BackColor = Y&
text12.BackColor = Y&
text13.BackColor = Y&
text14.BackColor = Y&
text15.BackColor = Y&
text16.BackColor = Y&
text17.BackColor = Y&
text18.BackColor = Y&
text19.BackColor = Y&
text20.BackColor = Y&
text21.BackColor = Y&
text22.BackColor = Y&
text23.BackColor = Y&
text24.BackColor = Y&
text25.BackColor = Y&
text26.BackColor = Y&
text27.BackColor = Y&
text28.BackColor = Y&
text29.BackColor = Y&
text30.BackColor = Y&
text31BackColor = Y&
text32.BackColor = Y&
text33.BackColor = Y&
text34.BackColor = Y&
text35.BackColor = Y&
text36.BackColor = Y&
text37.BackColor = Y&
End Sub
Sub nopunct () 'for situations where no punctuation is allowed
Select Case keyascii
Case 0 To 47
keyascii = 0
Case 58 To 64
keyascii = 0
Case 91 To 96
keyascii = 0
Case Is > 122
keyascii = 0
End Select
End Sub
Sub nopunct1 ()
'For keydown stuff to ensure no punctuation, but allow arrows
Select Case keycode
Case 8 To 13, 17 To 27, 33 To 36, 38, 40 To 57, 96 To 99, 101, Is > 103
keycode = 16 'do nothing, basically...
Case Shift = 6 And keycode = 110
keycode = 16 'If user tries CTL-ALT-DEL, do nothing...
End Select
End Sub
Sub Text1_GotFocus ()
x& = RGB(255, 0, 0)
text1.BackColor = x&
label1.Caption = "Begin by typing name of addressee in red highlighted area."
End Sub
Sub Text1_KeyDown (keycode As Integer, Shift As Integer)
'For keydown stuff to ensure no punctuation, but allow arrows
Select Case keycode
Case 9 To 12, 17 To 27, 33 To 36, 38, 40 To 45, 96 To 99, 101, 103 To 109, Is > 110
Beep
MsgBox ("Sorry! No punctuation or non-printable characters can be used. Please erase any you may have accidently typed before continuing.")
text1.Text = ""
End Select
If keycode = 13 Then
keycode = 9
label1.Caption = "Good! Now enter address."
text2.SetFocus
End If
End Sub
Sub Text1_KeyPress (keyascii As Integer)
If keyascii = 13 Then
keyascii = 0
End If
End Sub
Sub Text10_GotFocus ()
x& = RGB(255, 0, 0)
text10.BackColor = x&
Y& = RGB(0, 0, 255)
text9.BackColor = Y&
End Sub
Sub Text10_KeyDown (keycode As Integer, Shift As Integer)
Select Case keycode
Case 9 To 12, 17 To 27, 33 To 36, 38, 40 To 45, 96 To 99, 101, 103 To 109, Is > 110
Beep
MsgBox ("Sorry! No punctuation or non-printable characters can be used. Please erase any you may have accidently typed before continuing.")
text10.Text = ""
Case 32
text11.SetFocus
End Select
If keycode = 13 Then
keycode = 9
text11.SetFocus
End If
End Sub
Sub Text10_KeyPress (keyascii As Integer)
If keyascii = 13 Then
keyascii = 0
End If
End Sub
Sub Text11_GotFocus ()
x& = RGB(255, 0, 0)
text11.BackColor = x&
Y& = RGB(0, 0, 255)
text10.BackColor = Y&
End Sub
Sub Text11_KeyDown (keycode As Integer, Shift As Integer)
Select Case keycode
Case 9 To 12, 17 To 27, 33 To 36, 38, 40 To 45, 96 To 99, 101, 103 To 109, Is > 110
Beep
MsgBox ("Sorry! No punctuation or non-printable characters can be used. Please erase any you may have accidently typed before continuing.")
text11.Text = ""
Case 32
text12.SetFocus
End Select
If keycode = 13 Then
keycode = 9
text12.SetFocus
End If
End Sub
Sub Text11_KeyPress (keyascii As Integer)
If keyascii = 13 Then
keyascii = 0
End If
End Sub
Sub Text12_GotFocus ()
x& = RGB(255, 0, 0)
text12.BackColor = x&
Y& = RGB(0, 0, 255)
text11.BackColor = Y&
End Sub
Sub Text12_KeyDown (keycode As Integer, Shift As Integer)
Select Case keycode
Case 9 To 12, 17 To 27, 33 To 36, 38, 40 To 45, 96 To 99, 101, 103 To 109, Is > 110
Beep
MsgBox ("Sorry! No punctuation or non-printable characters can be used. Please erase any you may have accidently typed before continuing.")
text12.Text = ""
Case 32
text13.SetFocus
End Select
If keycode = 13 Then
keycode = 9
text13.SetFocus
End If
End Sub
Sub Text12_KeyPress (keyascii As Integer)
If keyascii = 13 Then
keyascii = 0
End If
End Sub
Sub Text13_GotFocus ()
x& = RGB(255, 0, 0)
text13.BackColor = x&
Y& = RGB(0, 0, 255)
text12.BackColor = Y&
End Sub
Sub Text13_KeyDown (keycode As Integer, Shift As Integer)
Select Case keycode
Case 9 To 12, 17 To 27, 33 To 36, 38, 40 To 45, 96 To 99, 101, 103 To 109, Is > 110
Beep
MsgBox ("Sorry! No punctuation or non-printable characters can be used. Please erase any you may have accidently typed before continuing.")
text13.Text = ""
Case 32
text14.SetFocus
End Select
If keycode = 13 Then
keycode = 9
text14.SetFocus
End If
End Sub
Sub Text13_KeyPress (keyascii As Integer)
If keyascii = 13 Then
keyascii = 0
End If
End Sub
Sub Text14_GotFocus ()
x& = RGB(255, 0, 0)
text14.BackColor = x&
Y& = RGB(0, 0, 255)
text13.BackColor = Y&
End Sub
Sub Text14_KeyDown (keycode As Integer, Shift As Integer)
Select Case keycode
Case 9 To 12, 17 To 27, 33 To 36, 38, 40 To 45, 96 To 99, 101, 103 To 109, Is > 110
Beep
MsgBox ("Sorry! No punctuation or non-printable characters can be used. Please erase any you may have accidently typed before continuing.")
text14.Text = ""
Case 32
text15.SetFocus
End Select
If keycode = 13 Then
keycode = 9
text15.SetFocus
End If
End Sub
Sub Text14_KeyPress (keyascii As Integer)
If keyascii = 13 Then
keyascii = 0
End If
End Sub
Sub Text15_GotFocus ()
x& = RGB(255, 0, 0)
text15.BackColor = x&
Y& = RGB(0, 0, 255)
text14.BackColor = Y&
End Sub
Sub Text15_KeyDown (keycode As Integer, Shift As Integer)
Select Case keycode
Case 9 To 12, 17 To 27, 33 To 36, 38, 40 To 45, 96 To 99, 101, 103 To 109, Is > 110
Beep
MsgBox ("Sorry! No punctuation or non-printable characters can be used. Please erase any you may have accidently typed before continuing.")
text15.Text = ""
Case 32
text16.SetFocus
End Select
If keycode = 13 Then
keycode = 9
text16.SetFocus
End If
End Sub
Sub Text15_KeyPress (keyascii As Integer)
If keyascii = 13 Then
keyascii = 0
End If
End Sub
Sub Text16_GotFocus ()
x& = RGB(255, 0, 0)
text16.BackColor = x&
Y& = RGB(0, 0, 255)
text15.BackColor = Y&
End Sub
Sub Text16_KeyDown (keycode As Integer, Shift As Integer)
Select Case keycode
Case 9 To 12, 17 To 27, 33 To 36, 38, 40 To 45, 96 To 99, 101, 103 To 109, Is > 110
Beep
MsgBox ("Sorry! No punctuation or non-printable characters can be used. Please erase any you may have accidently typed before continuing.")
text16.Text = ""
Case 32
text17.SetFocus
End Select
If keycode = 13 Then
keycode = 9
text17.SetFocus
End If
End Sub
Sub Text16_KeyPress (keyascii As Integer)
If keyascii = 13 Then
keyascii = 0
End If
End Sub
Sub Text17_GotFocus ()
x& = RGB(255, 0, 0)
text17.BackColor = x&
Y& = RGB(0, 0, 255)
text16.BackColor = Y&
End Sub
Sub Text17_KeyDown (keycode As Integer, Shift As Integer)
Select Case keycode
Case 9 To 12, 17 To 27, 33 To 36, 38, 40 To 45, 96 To 99, 101, 103 To 109, Is > 110
Beep
MsgBox ("Sorry! No punctuation or non-printable characters can be used. Please erase any you may have accidently typed before continuing.")
text17.Text = ""
Case 32
text18.SetFocus
End Select
If keycode = 13 Then
keycode = 9
text18.SetFocus
End If
End Sub
Sub Text17_KeyPress (keyascii As Integer)
If keyascii = 13 Then
keyascii = 0
End If
End Sub
Sub Text18_GotFocus ()
x& = RGB(255, 0, 0)
text18.BackColor = x&
Y& = RGB(0, 0, 255)
text17.BackColor = Y&
End Sub
Sub Text18_KeyDown (keycode As Integer, Shift As Integer)
Select Case keycode
Case 9 To 12, 17 To 27, 33 To 36, 38, 40 To 45, 96 To 99, 101, 103 To 109, Is > 110
Beep
MsgBox ("Sorry! No punctuation or non-printable characters can be used. Please erase any you may have accidently typed before continuing.")
text18.Text = ""
Case 32
text19.SetFocus
End Select
If keycode = 13 Then
keycode = 9
text19.SetFocus
End If
End Sub
Sub Text18_KeyPress (keyascii As Integer)
If keyascii = 13 Then
keyascii = 0
End If
End Sub
Sub Text19_GotFocus ()
x& = RGB(255, 0, 0)
text19.BackColor = x&
Y& = RGB(0, 0, 255)
text18.BackColor = Y&
End Sub
Sub Text19_KeyDown (keycode As Integer, Shift As Integer)
Select Case keycode
Case 9 To 12, 17 To 27, 33 To 36, 38, 40 To 45, 96 To 99, 101, 103 To 109, Is > 110
Beep
MsgBox ("Sorry! No punctuation or non-printable characters can be used. Please erase any you may have accidently typed before continuing.")
text19.Text = ""
Case 32
text20.SetFocus
End Select
If keycode = 13 Then
keycode = 9
text20.SetFocus
End If
End Sub
Sub Text19_KeyPress (keyascii As Integer)
If keyascii = 13 Then
keyascii = 0
End If
End Sub
Sub Text2_GotFocus ()
x& = RGB(255, 0, 0)
text2.BackColor = x&
Y& = RGB(0, 0, 255)
text1.BackColor = Y&
End Sub
Sub Text2_KeyDown (keycode As Integer, Shift As Integer)
'For keydown stuff to ensure no punctuation, but allow arrows
Select Case keycode
Case 9 To 12, 17 To 27, 33 To 36, 38, 40 To 45, 96 To 99, 101, 103 To 109, Is > 110
Beep
MsgBox ("Sorry! No punctuation or non-printable characters can be used. Please erase any you may have accidently typed before continuing.")
text2.Text = ""
End Select
If keycode = 13 Then
keycode = 9
label1.Caption = "Good! Now enter City"
text3.SetFocus
End If
End Sub
Sub Text2_KeyPress (keyascii As Integer)
If keyascii = 13 Then
keyascii = 0
End If
End Sub
Sub Text20_GotFocus ()
x& = RGB(255, 0, 0)
text20.BackColor = x&
Y& = RGB(0, 0, 255)
text19.BackColor = Y&
End Sub
Sub Text20_KeyDown (keycode As Integer, Shift As Integer)
Select Case keycode
Case 9 To 12, 17 To 27, 33 To 36, 38, 40 To 45, 96 To 99, 101, 103 To 109, Is > 110
Beep
MsgBox ("Sorry! No punctuation or non-printable characters can be used. Please erase any you may have accidently typed before continuing.")
text20.Text = ""
Case 32
text21.SetFocus
End Select
If keycode = 13 Then
keycode = 9
text21.SetFocus
End If
End Sub
Sub Text20_KeyPress (keyascii As Integer)
If keyascii = 13 Then
keyascii = 0
End If
End Sub
Sub Text21_GotFocus ()
x& = RGB(255, 0, 0)
text21.BackColor = x&
Y& = RGB(0, 0, 255)
text20.BackColor = Y&
End Sub
Sub Text21_KeyDown (keycode As Integer, Shift As Integer)
Select Case keycode
Case 9 To 12, 17 To 27, 33 To 36, 38, 40 To 45, 96 To 99, 101, 103 To 109, Is > 110
Beep
MsgBox ("Sorry! No punctuation or non-printable characters can be used. Please erase any you may have accidently typed before continuing.")
text21.Text = ""
Case 32
text22.SetFocus
End Select
If keycode = 13 Then
keycode = 9
text22.SetFocus
End If
End Sub
Sub Text21_KeyPress (keyascii As Integer)
If keyascii = 13 Then
keyascii = 0
End If
End Sub
Sub Text22_GotFocus ()
x& = RGB(255, 0, 0)
text22.BackColor = x&
Y& = RGB(0, 0, 255)
text21.BackColor = Y&
End Sub
Sub Text22_KeyDown (keycode As Integer, Shift As Integer)
Select Case keycode
Case 9 To 12, 17 To 27, 33 To 36, 38, 40 To 45, 96 To 99, 101, 103 To 109, Is > 110
Beep
MsgBox ("Sorry! No punctuation or non-printable characters can be used. Please erase any you may have accidently typed before continuing.")
Case 9 To 12, 17 To 27, 33 To 36, 38, 40 To 45, 96 To 99, 101, 103 To 109, Is > 110
Beep
MsgBox ("Sorry! No punctuation or non-printable characters can be used. Please erase any you may have accidently typed before continuing.")
text22.Text = ""
Case 32
text23.SetFocus
End Select
If keycode = 13 Then
keycode = 9
text23.SetFocus
End If
End Sub
Sub Text22_KeyPress (keyascii As Integer)
If keyascii = 13 Then
keyascii = 0
End If
End Sub
Sub Text23_GotFocus ()
x& = RGB(255, 0, 0)
text23.BackColor = x&
Y& = RGB(0, 0, 255)
text22.BackColor = Y&
End Sub
Sub Text23_KeyDown (keycode As Integer, Shift As Integer)
Select Case keycode
Case 9 To 12, 17 To 27, 33 To 36, 38, 40 To 45, 96 To 99, 101, 103 To 109, Is > 110
Beep
MsgBox ("Sorry! No punctuation or non-printable characters can be used. Please erase any you may have accidently typed before continuing.")
text23.Text = ""
Case 32
text24.SetFocus
End Select
If keycode = 13 Then
keycode = 9
text24.SetFocus
End If
End Sub
Sub Text23_KeyPress (keyascii As Integer)
If keyascii = 13 Then
keyascii = 0
End If
End Sub
Sub Text24_GotFocus ()
x& = RGB(255, 0, 0)
text24.BackColor = x&
Y& = RGB(0, 0, 255)
text23.BackColor = Y&
End Sub
Sub Text24_KeyDown (keycode As Integer, Shift As Integer)
Select Case keycode
Case 9 To 12, 17 To 27, 33 To 36, 38, 40 To 45, 96 To 99, 101, 103 To 109, Is > 110
Beep
MsgBox ("Sorry! No punctuation or non-printable characters can be used. Please erase any you may have accidently typed before continuing.")
text24.Text = ""
Case 32
text25.SetFocus
End Select
If keycode = 13 Then
keycode = 9
text25.SetFocus
End If
End Sub
Sub Text24_KeyPress (keyascii As Integer)
If keyascii = 13 Then
keyascii = 0
End If
End Sub
Sub Text25_GotFocus ()
x& = RGB(255, 0, 0)
text25.BackColor = x&
Y& = RGB(0, 0, 255)
text24.BackColor = Y&
End Sub
Sub Text25_KeyDown (keycode As Integer, Shift As Integer)
Select Case keycode
Case 9 To 12, 17 To 27, 33 To 36, 38, 40 To 45, 96 To 99, 101, 103 To 109, Is > 110
Beep
MsgBox ("Sorry! No punctuation or non-printable characters can be used. Please erase any you may have accidently typed before continuing.")
text25.Text = ""
Case 32
text26.SetFocus
End Select
If keycode = 13 Then
keycode = 9
text26.SetFocus
End If
End Sub
Sub Text25_KeyPress (keyascii As Integer)
If keyascii = 13 Then
keyascii = 0
End If
End Sub
Sub Text26_GotFocus ()
x& = RGB(255, 0, 0)
text26.BackColor = x&
Y& = RGB(0, 0, 255)
text25.BackColor = Y&
End Sub
Sub Text26_KeyDown (keycode As Integer, Shift As Integer)
Select Case keycode
Case 9 To 12, 17 To 27, 33 To 36, 38, 40 To 45, 96 To 99, 101, 103 To 109, Is > 110
Beep
MsgBox ("Sorry! No punctuation or non-printable characters can be used. Please erase any you may have accidently typed before continuing.")
text26.Text = ""
Case 32
text27.SetFocus
End Select
If keycode = 13 Then
keycode = 9
text27.SetFocus
End If
End Sub
Sub Text26_KeyPress (keyascii As Integer)
If keyascii = 13 Then
keyascii = 0
End If
End Sub
Sub Text27_GotFocus ()
x& = RGB(255, 0, 0)
text27.BackColor = x&
Y& = RGB(0, 0, 255)
text26.BackColor = Y&
End Sub
Sub Text27_KeyDown (keycode As Integer, Shift As Integer)
Select Case keycode
Case 9 To 12, 17 To 27, 33 To 36, 38, 40 To 45, 96 To 99, 101, 103 To 109, Is > 110
Beep
MsgBox ("Sorry! No punctuation or non-printable characters can be used. Please erase any you may have accidently typed before continuing.")
text27.Text = ""
Case 32
text28.SetFocus
End Select
If keycode = 13 Then
keycode = 9
text28.SetFocus
End If
End Sub
Sub Text27_KeyPress (keyascii As Integer)
If keyascii = 13 Then
keyascii = 0
End If
End Sub
Sub Text28_GotFocus ()
x& = RGB(255, 0, 0)
text28.BackColor = x&
Y& = RGB(0, 0, 255)
text27.BackColor = Y&
End Sub
Sub Text28_KeyDown (keycode As Integer, Shift As Integer)
Select Case keycode
Case 9 To 12, 17 To 27, 33 To 36, 38, 40 To 45, 96 To 99, 101, 103 To 109, Is > 110
Beep
MsgBox ("Sorry! No punctuation or non-printable characters can be used. Please erase any you may have accidently typed before continuing.")
text28.Text = ""
Case 32
text29.SetFocus
End Select
If keycode = 13 Then
keycode = 9
text29.SetFocus
End If
End Sub
Sub Text28_KeyPress (keyascii As Integer)
If keyascii = 13 Then
keyascii = 0
End If
End Sub
Sub Text29_GotFocus ()
x& = RGB(255, 0, 0)
text29.BackColor = x&
Y& = RGB(0, 0, 255)
text28.BackColor = Y&
End Sub
Sub Text29_KeyDown (keycode As Integer, Shift As Integer)
Select Case keycode
Case 9 To 12, 17 To 27, 33 To 36, 38, 40 To 45, 96 To 99, 101, 103 To 109, Is > 110
Beep
MsgBox ("Sorry! No punctuation or non-printable characters can be used. Please erase any you may have accidently typed before continuing.")
text29.Text = ""
Case 32
text30.SetFocus
End Select
If keycode = 13 Then
keycode = 9
text30.SetFocus
End If
End Sub
Sub Text29_KeyPress (keyascii As Integer)
If keyascii = 13 Then
keyascii = 0
End If
End Sub
Sub Text3_GotFocus ()
x& = RGB(255, 0, 0)
text3.BackColor = x&
Y& = RGB(0, 0, 255)
text2.BackColor = Y&
End Sub
Sub Text3_KeyDown (keycode As Integer, Shift As Integer)
Select Case keycode
Case 9 To 12, 17 To 27, 33 To 36, 38, 40 To 45, 96 To 99, 101, 103 To 109, Is > 110
Beep
MsgBox ("Sorry! No punctuation or non-printable characters can be used. Please erase any you may have accidently typed before continuing.")
text3.Text = ""
End Select
If keycode = 13 Then
keycode = 9
label1.Caption = "Now enter 2-letter State. (If non-USA/Canada, leave blank)."
text4.SetFocus
End If
End Sub
Sub Text3_KeyPress (keyascii As Integer)
If keyascii = 13 Then
keyascii = 0
End If
End Sub
Sub Text30_GotFocus ()
x& = RGB(255, 0, 0)
text30.BackColor = x&
Y& = RGB(0, 0, 255)
text29.BackColor = Y&
End Sub
Sub Text30_KeyDown (keycode As Integer, Shift As Integer)
Select Case keycode
Case 9 To 12, 17 To 27, 33 To 36, 38, 40 To 45, 96 To 99, 101, 103 To 109, Is > 110
Beep
MsgBox ("Sorry! No punctuation or non-printable characters can be used. Please erase any you may have accidently typed before continuing.")
text30.Text = ""
Case 32
text31.SetFocus
End Select
If keycode = 13 Then
keycode = 9
text31.SetFocus
End If
End Sub
Sub Text30_KeyPress (keyascii As Integer)
If keyascii = 13 Then
keyascii = 0
End If
End Sub
Sub Text31_GotFocus ()
x& = RGB(255, 0, 0)
text31.BackColor = x&
Y& = RGB(0, 0, 255)
text30.BackColor = Y&
End Sub
Sub Text31_KeyDown (keycode As Integer, Shift As Integer)
Select Case keycode
Case 9 To 12, 17 To 27, 33 To 36, 38, 40 To 45, 96 To 99, 101, 103 To 109, Is > 110
Beep
MsgBox ("Sorry! No punctuation or non-printable characters can be used. Please erase any you may have accidently typed before continuing.")
text31.Text = ""
Case 32
text32.SetFocus
End Select
If keycode = 13 Then
keycode = 9
text32.SetFocus
End If
End Sub
Sub Text31_KeyPress (keyascii As Integer)
If keyascii = 13 Then
keyascii = 0
End If
End Sub
Sub Text32_GotFocus ()
x& = RGB(255, 0, 0)
text32.BackColor = x&
Y& = RGB(0, 0, 255)
text31.BackColor = Y&
End Sub
Sub Text32_KeyDown (keycode As Integer, Shift As Integer)
Select Case keycode
Case 9 To 12, 17 To 27, 33 To 36, 38, 40 To 45, 96 To 99, 101, 103 To 109, Is > 110
Beep
MsgBox ("Sorry! No punctuation or non-printable characters can be used. Please erase any you may have accidently typed before continuing.")
text32.Text = ""
Case 32
text33.SetFocus
End Select
If keycode = 13 Then
keycode = 9
text33.SetFocus
End If
End Sub
Sub Text32_KeyPress (keyascii As Integer)
If keyascii = 13 Then
keyascii = 0
End If
End Sub
Sub Text33_GotFocus ()
x& = RGB(255, 0, 0)
text33.BackColor = x&
Y& = RGB(0, 0, 255)
text32.BackColor = Y&
End Sub
Sub Text33_KeyDown (keycode As Integer, Shift As Integer)
Select Case keycode
Case 9 To 12, 17 To 27, 33 To 36, 38, 40 To 45, 96 To 99, 101, 103 To 109, Is > 110
Beep
MsgBox ("Sorry! No punctuation or non-printable characters can be used. Please erase any you may have accidently typed before continuing.")
text33.Text = ""
Case 32
text34.SetFocus
End Select
If keycode = 13 Then
keycode = 9
text34.SetFocus
End If
End Sub
Sub Text33_KeyPress (keyascii As Integer)
If keyascii = 13 Then
keyascii = 0
End If
End Sub
Sub Text34_GotFocus ()
x& = RGB(255, 0, 0)
text34.BackColor = x&
Y& = RGB(0, 0, 255)
text33.BackColor = Y&
End Sub
Sub Text34_KeyDown (keycode As Integer, Shift As Integer)
Select Case keycode
Case 9 To 12, 17 To 27, 33 To 36, 38, 40 To 45, 96 To 99, 101, 103 To 109, Is > 110
Beep
MsgBox ("Sorry! No punctuation or non-printable characters can be used. Please erase any you may have accidently typed before continuing.")
text34.Text = ""
Case 32
text35.SetFocus
End Select
If keycode = 13 Then
keycode = 9
text35.SetFocus
End If
End Sub
Sub Text34_KeyPress (keyascii As Integer)
If keyascii = 13 Then
keyascii = 0
End If
End Sub
Sub Text35_GotFocus ()
x& = RGB(255, 0, 0)
text35.BackColor = x&
Y& = RGB(0, 0, 255)
text34.BackColor = Y&
End Sub
Sub Text35_KeyDown (keycode As Integer, Shift As Integer)
Select Case keycode
Case 9 To 12, 17 To 27, 33 To 36, 38, 40 To 45, 96 To 99, 101, 103 To 109, Is > 110
Beep
MsgBox ("Sorry! No punctuation or non-printable characters can be used. Please erase any you may have accidently typed before continuing.")
text35.Text = ""
Case 32
text36.SetFocus
End Select
If keycode = 13 Then
keycode = 9
text36.SetFocus
End If
End Sub
Sub Text35_KeyPress (keyascii As Integer)
If keyascii = 13 Then
keyascii = 0
End If
End Sub
Sub Text36_GotFocus ()
x& = RGB(255, 0, 0)
text36.BackColor = x&
Y& = RGB(0, 0, 255)
text35.BackColor = Y&
End Sub
Sub Text36_KeyDown (keycode As Integer, Shift As Integer)
Select Case keycode
Case 9 To 12, 17 To 27, 33 To 36, 38, 40 To 45, 96 To 99, 101, 103 To 109, Is > 110
Beep
MsgBox ("Sorry! No punctuation or non-printable characters can be used. Please erase any you may have accidently typed before continuing.")
text36.Text = ""
Case 32
text37.SetFocus
End Select
If keycode = 13 Then
keycode = 9
text37.SetFocus
End If
End Sub
Sub Text36_KeyPress (keyascii As Integer)
If keyascii = 13 Then
keyascii = 0
End If
End Sub
Sub Text37_Change ()
love$ = text37.Text
Select Case LCase$(love$)
Case "love"
Beep
MsgBox ("We're sorry, but the word 'Love' needs to be in one of the text boxes, not here in the signature box. The signature box should contain the actual names of the sender..."), 0, "Oops!"
text37.Text = ""
Case "regards"
Beep
MsgBox ("We're sorry, but the word 'Regards' needs to be in one of the text boxes, not here in the signature box. The signature box should contain the actual names of the sender..."), 0, "Oops!"
text37.Text = ""
Case "with love"
Beep
Beep
MsgBox ("We're sorry, but the words 'With Love' need to be in one of the text boxes, not here in the signature box. The signature box should contain the actual names of the sender..."), 0, "Oops!"
text37.Text = ""
Case "much love"
Beep
MsgBox ("We're sorry, but the words 'Much Love' need to be in one of the text boxes, not here in the signature box. The signature box should contain the actual names of the sender..."), 0, "Oops!"
text37.Text = ""
End Select
End Sub
Sub Text37_GotFocus ()
x& = RGB(255, 0, 0)
text37.BackColor = x&
Y& = RGB(0, 0, 255)
text7.BackColor = Y&
label1.Caption = "Now enter the signature, names only."
Select Case voice
Case 2 'This is a radiogram, not a voicegram
If text8.Text = "" Then
MsgBox ("Warning! It appears that there is either no text to this message, or one of the text boxes is improperly empty. Please correct before continuing...")
text8.SetFocus
End If
End Select
End Sub
Sub Text37_KeyDown (keycode As Integer, Shift As Integer)
'Now check for punctuation...
Select Case keycode
Case 9 To 12, 17 To 27, 33 To 36, 38, 40 To 45, 96 To 99, 101, 103 To 109, Is > 110
Beep
MsgBox ("Sorry! No punctuation or non-printable characters can be used. Please erase any you may have accidently typed before continuing.")
End Select
Select Case voice
Case 1 'This is a Voicegram, not a radiogram
If text1.Text = "" Then
Beep: MsgBox ("You need to fill in the name and address information before we can transmit your voicegram..."): text38.Visible = False: text1.SetFocus : text37.Text = ""
End If
If keycode = 13 And text37.Text = "" Then
MsgBox ("We can't send your voicegram without a signature..."): text38.Visible = False: label1.Visible = True: label2.Visible = True: label10.Visible = True: text37.Visible = True: text37.SetFocus
End If
If keycode = 13 And text37.Text <> "" Then
text38.Visible = True: text38.Text = "Now you can begin to record your voice message. When you have the microphone ready, press the ENTER key to start recording.": label1.Visible = False: label2.Visible = False: label10.Visible = False: text37.Visible = False: text38.SetFocus
End If
Case 2 ' This is a radiogram, not a voicegram
If keycode = 13 Then
keycode = 9
label1.Caption = "Inspect for errors, then click on 'transmit' or 'abort' button."
End If
End Select
End Sub
Sub Text37_KeyPress (keyascii As Integer)
If keyascii = 13 Then
keyascii = 0
End If
End Sub
Sub Text38_KeyDown (keycode As Integer, Shift As Integer)
On Error Resume Next
If keycode = 13 Then 'Record the voicegram
'command3d1.Enabled = False
messagenumber = initialmessagenumber + 1' Increment the message number